﻿Public Class WorkerThreadArguments
    Private m_scriptOnly As Boolean
    Private m_callback As IScriptExecuteCallback
    Private m_server As String
    Private m_userId As String
    Private m_password As String
    Private m_database As String
    Private m_dropAllConstraints As Boolean
    Private m_collation As String
    Private m_language As FullTextLanguage
    Private m_setSingleUser As Boolean

    Public Sub New(ByVal scriptOnly As Boolean, ByVal callback As IScriptExecuteCallback, ByVal server As String, ByVal userId As String, ByVal password As String, ByVal database As String, _
     ByVal dropAllConstraints As Boolean, ByVal collation As String, ByVal language As FullTextLanguage, ByVal setSingleUser As Boolean)
        Me.m_scriptOnly = scriptOnly
        Me.m_callback = callback
        Me.m_server = server
        Me.m_userId = userId
        Me.m_password = password
        Me.m_database = database
        Me.m_dropAllConstraints = dropAllConstraints
        Me.m_collation = collation
        Me.m_language = language
        Me.m_setSingleUser = setSingleUser
    End Sub
    Public ReadOnly Property ScriptOnly() As Boolean
        Get
            Return m_scriptOnly
        End Get
    End Property
    Public ReadOnly Property Callback() As IScriptExecuteCallback
        Get
            Return m_callback
        End Get
    End Property
    Public ReadOnly Property Server() As String
        Get
            Return m_server
        End Get
    End Property
    Public ReadOnly Property UserId() As String
        Get
            Return m_userId
        End Get
    End Property
    Public ReadOnly Property Password() As String
        Get
            Return m_password
        End Get
    End Property
    Public ReadOnly Property Database() As String
        Get
            Return m_database
        End Get
    End Property
    Public ReadOnly Property DropAllConstraints() As Boolean
        Get
            Return m_dropAllConstraints
        End Get
    End Property
    Public ReadOnly Property Collation() As String
        Get
            Return m_collation
        End Get
    End Property
    Public ReadOnly Property Language() As FullTextLanguage
        Get
            Return m_language
        End Get
    End Property
    Public ReadOnly Property SetSingleUser() As Boolean
        Get
            Return m_setSingleUser
        End Get
    End Property
End Class